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AKTUELE BIJLAGE BĲ COMMODORE DOSSIER 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 


mei, augustus en november als bijla- 


ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
van Commodore Dossier. 


DEZE MAAND: 


NIEUWS 
pagina 1 
Met onder meer een toetsenbord van 
Wersi en een geheugenuitbreiding — 
voor de CBM-64 van Radarsoft. 


TIPS & TRUCS 
pagina 4 7 
Het verschil tussen ’'end’ en ’stop’, 
mysterieuze ’out of memory’ en veel 
andere. 


PROGRAMMAS 
pagina 5 a 
Grapjes met tekststrings, astrologie 
__met ’Zodiac’ en veel MUZIEK. 


LISTINGS 
VAN LEZERS 
pagina 11 
Fraai programma 'Screenprint’, inge- 
zonden door Johan Eerenberg. 


 BASIG 
pagina 12 
Roelf Sluman behandelt dit keer pro- 
grammeren met behulp van data- 
regels. a 


CD-MARKET 
pagina 13 
Gratis kleine advertenties van en 
voor lezers van Commodore Dossier. 


SERVICE 
pagina 14 
De belangrijkste gegevens van de 
_ verschillende gebruikersgroepen. 


























Wersi Electronic Nederland BV 
(Postbus 106, 3870 CC Hoevela- 


ken) brengt een toetsenbord op 
de markt dat van de Commodo- 


re 64 een synthesizer maakt. 


Het systeem bestaan uit een ste- 
vig — in Commodore-stijl — 
uitgevoerd toetsenbord met 49 
toetsen, een interface met ver- 
bindingskabel, standaard soft- 
ware (op schijf) en een uitge- 
breide handleiding. Het stan- 
daard bijgeleverde programma 


op schijf levert de mogelijkheid 
om de melodievolgorde vrij sa- 
men te stellen, heeft een opslag- 
capaciteit van twee keer tien 
sounds, regelbaar tempo en 
toonhoogte, een playback func- 
tie en laat drie klankkleuren te- 
gelijkertijd toe. Inclusief dit 
programma kost het toetsenbord 
F585,-. Voor F50,- is soundpack 
3 aan te schaffen, een schijf die 
onder meer de mogelijkheid van 
vrije toonkeuze geeft. Een rit- 




















meprogramma op schijf kost 
tenslotte F245 

De programma’s geven hun in- 
structies op het beeldscherm van 
tv of monitor, maar voor het 
fraaiste effect moet het geluid 
natuurlijk eigenlijk naar de 
stereo-instrallatie worden afge- 
takt. 

In een van onze volgende num- 
mers zullen we het toetsenbord 
van Wersi veel uitvoerioger aan 
de tand voelen. 


GEHEUGEN-UITBREIDING VAN RADARSOFT 


De meeste bezitters van een 
CBM-64 hebben leren leven en 
woekeren met de beperkte (38K) 
geheugenruimte van hun machi- 


[ ne. Toch is er volgens Radar- 


soft in deze kringen een grote 
behoefte aan geheugenuitbrei- 
ding. De daad bij het woord 
voegend brengt het Roosendaal- 
se bedrijf dan ook een insteek- 


module op de markt die I2K 
aan het werkgeheugen van de 
CBM-64 toevoegt. Behalve een 
uitbreiding van het geheugen, 
krijst de gebruiker dan de be- 
schikking over een aantal extra 
opdrachten die het leven kunnen 
veraangenamen, maar aan de 
undere kant levert de module 
ook een aantal beperkingen op. 


De module bevat niet echt een 
geheugen-uitbreiding, maar 
maakt gebruik van zogenaamde 
bank-switching in het bestaande 
geheugen van de Commodore. 
Dat betekent praktisch dat u 
onmiddelijk in de knoei komt 
als u gaat werken met disk- 
snellaadprogramma’s en com- 
merciële machinetaal > 








B programma’s. Ook Simons Ba- 


sic kan niet tegelijkertijd werken 
en voor de grafische tekens van 
Commodore moet de module 
ook uitgeschakeld worden. 

De manier waarop de module 
uitgeschakeld wordt - met de K 
van Kill — is illustratief voor de 
eenvoud van de extra opdrach- 
ten die programmeurs ter be- 
schikking krijgen. Voor Basic- 
programmeurs is de module vol- 
gens de makers bij uitstek ge- 
schikt. Die krijgen bijvoorbeeld 
de beschikking over de uitste- 
kende Renumber-faciliteit die 
ook de Gosubs en Goto's niet 


En 


abe aak AA 


vergeet en die kunnen ook hun 
voordeel doen met het Radar- 
schijfbesturingssysteem met al 
zijn foefjes. 

Met dat besturingssysteerm kan 
bijvoorbeeld de directory of in- 
houdsopgave van de schijf wor- 
den opgeroepen zonder vernieti- 
ging van het programma in het 
geheugen van de machine. Van- 
uit de directory kunnen met 
heel korte opdrachten program- 
ma's worden geladen. Zo is 
Shift G aan het begin van een 


regel in de directory al voldoen- 
de om een programma te laden 
en daarna automatisch te 
starten. 

Gebruikers van de datasette 
krijgen de beschikking over een 
zogenaamde TURBO, waarmee 
het laden en wegschrijven van 
programma’s tien keer sneller 
verloopt. 

Als de insteekmodule is aange- 
bracht, meldt hij zich bij het 
aanzetten van de computer met 
een titelblad waarop alle moge- 
lijkheden vermeld worden. 
Nauwkeurig bestuderen van die 
titelkaart is wel het minste wat 
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de koper-in-spe moet doen 
voordat hij tot een aanschaf. 
van F149,- overgaal. 

Vendex (020-460706) verkoopt 
de insteekmodule. 

Dat betekent dat de omzet in 
Nederland in elk geval gegaran- 
deerd lijkt. Maar ook het bui- 
tenland toont belangstelling. 
Niet alleen verschillende Euro- 
pese landen gaan de module im- 
porteren, maar zelfs de Verenig- 
de Staten lijken bijzonder geïn- 
teresseerd. 


CBM-64 OVERHEERST FINALE 
MICRO MASTERS 


In de Rotterdamse Ahoy traden 
vorige maand vijfenzeventig 
jongeren tussen de vijftien en 
achttien aan voor de finale van 
Micro Masters Holland. De ma- 
kers van de negen beste compu- 
terprogramma’s (of - toepassin- 
gen) stond een bijzonder aan- 
trekkelijke prijs te wachten: een 
week Turijn. In de maand juli 
zullen in totaal honderdtwintig 
jongeren uit alle landen van de 
E.G. in Turijn bij elkaar komen 
‘om kennis te maken met de 
nieuwe technologieën en om 


mee te doen aan diverse compu- 
terworkshops. 

Dat een groot aantal van de 
winnende programma’s op een 
Commodore 64 gemaakt zou 
zijn, stond al vóór het jurybe- 
raad vast. Maar liefst dertig van 
de vijfenzeventig finalisten had- 
den het lastige Commodore Ba- 
sic getrotseerd om hun idee uit 
te werken. Ter vergelijking: 
computer nummer twee, de Sin- 
clair Spectrum, was vertegen- 
woordigd door twaalf appara- 
ten. De vindingrijkheid van de 


bij de beoordeling hoog in het 
vaandel. Een programma als 
Kinder Komp van Erwin de 
Vries uit Veendam, dat leerlin- 
gen van de basisschool de eerste 
beginselen van het programme- 
ren probeert bij te brengen, was 
onder deze invalshoek natuurlijk 
een ijzersterke inzending. 
Waarschijnlijk krijgt Micro 
Masters Holland een vervolg. 
Gezien de kwaliteit van de in- 
zendingen deze eerste keer, kun- 
nen de toekomstige deelnemers 
maar beter meteen met pro- 
grammeren beginnen. 


deelnemers was bijzonder hoog. 
Een van de winnaars, Stephen 
Heerkens uit Veghel, had van 
‘Fishertechniek* een minifabriek 
gemaakt, Zijn Commodore 
bestuurt een thermische draad 
die letters en cijfers uit een stuk 
piepschuim snijdt. Het was op- 
vallend dat de jury bij het toe- 
kennen van haar hoofdprijzen 
de vele spelprogramma’s pas- 
seerde, 

Alleen een grafisch avontu- 
renspel van Jos de Kerk uit 
Noordwijkerhout kon de toets 
der kritiek doorstaan. Voor het 
overige stond het gebruikersnut 


PCM-SHOW 1985 


Nog even een geheugensteuntje voor de PCM-show die van 11 tot en 
met 13 oktober aanstaande in de Margriethal van de Jaarbeurs in 
Utrecht zal worden gehouden. Ook voor Commodore-fans zal deze 
beurs — die door ons zusterblad Personal Computer Magazine wordt 
georganiseerd — bijzonder interessant kunnen worden. De beurs vindt 
plaats op een strategisch tijdstip — vlak voor de feestdagen — zodat 
mag worden aangenomen dat de diverse fabrikanten hun primeurs zul- 
len showen. Zo zou de beurs wel eens de eerste gelegenheid kunnen zijn 
om daadwerkelijk kennis te maken met de C-128. 

Lezers van Commodore Dossier krijgen overigens voor de helft van de 
normale prijs toegang tot de beurs. De kortingsbon zal in Commodore 
Dossier nummer 3 worden bijgevoegd. 


HEAD ALIGNMENT KIT 





Geen mens kan het uitspreken, 
maar bezitters van de zoge- 
naamde datasette van Commo- 
dore kunnen er hun voordeel 
mee doen. De ’kit’ die Aacko- 
soft (071 — 412121) voor 
F39,50 op de markt brengt, 
maakt het correct afstellen van 
de opname-kop van zo’n casset- 
terecorder vrij eenvoudig. De 
doos bevat twee cassettes en een 


piepklein schroevendraaiertje. 
Via een duidelijke gebruiksaan- 
wijzing wordt verklaard hoe de 
kop aan de hand van een wij- 
zertje en een teller die in beeld 
verschijnen, moet worden af- 
gesteld. De noodzakelijk waar- 
schuwingen ontbreken ook niet. 
Heel handig, ondanks die on- 
mogelijke naam. 























TIPS EN TRUCS 


Maandelijkse rubriek met korte programma's, routi- 
nes en utilities. OE viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
A lezers worden, indien geplaatst, beloond met 50 
gulden. 


NOTA BENE 


Alle programma’s op deze en de volgende pagina’s zijn voor- 
zien van onze checksum. Die is te herkennen aan het voor- 
voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 
intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het ckecksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u op pagina 37 van Commodore Dossier. 


GEHEUGEN- 
LOKATIE 653 
Geheugenplaats 653 wordt door 
de computer gebruikt om aan te 
geven of de SHIFT-, 
CONTROL- of 
COMMODORE-toets is inge- 
drukt. In deze geheugenplaats 
kunnen zich de volgende waar- 
den bevinden: 

1 Shift-toets ingedrukt 

2 Commodore-toets ingedrukt 

3 Shift- en Commodore-toets in- 
gedrukt 


4 Control-toets ingedrukt 

5 Shift- en control-toets in- 
gedrukt 

6 Commodore- en control-toets 
ingedrukt 

7 Shift-, Commodore- en 
control-toets ingedrukt. 


Op de volgende manier wordt 
zo gewacht totdat de Shift-toets 
wordt ingedrukt: 

10 print”’druk op de shift-toets’’ 
20 wait 653,1 

30 print”)DANK U WEL” 


LADEN VAN CASSETTE 


We hebben ontdekt dat niet alle 
lezers op de hoogte zijn van de 
volgende truc. Als een program- 
ma van cassette moet worden 
geladen, geeft de Commodore 
64, een tijdje nadat de play- 
toets is ingedrukt, de melding 
’FOUND programmanaam’. Na 
ongeveer 10 seconden begint de 
computer dan te laden. Deze 


wachttijd is te voorkomen door 
direct na de FOUND-melding 
de Commodore-, control- of 
spatie-toets in te drukken. Voor 
de Vic 20 is het bovenstaande 
niet van toepassing; deze com- 
puter begint meteen na FOUND 
met het laden van het pro- 
gramma. 


AUTOMATISCHE TABULATIE 


Het gebruik van een komma na 
een print-opdracht zorgt er voor 
dat de volgende print- 

instructie vanaf de volgende ta- 
bulatiestop begint. Op de Com- 
modore 64 bevinden zich vier 


tabulatiestops, op de Vic 20 zijn 
dat er twee. Het volgende korte 
Basic-programma maakt gebruik 
van tabulaties: 

10 for x= lto100 

20 print x,:next 


HET VERSCHIL TUSSEN END’ 


EN STOP” 
Basic-programmeurs weten dat 
er twee manieren zijn om een 
programma te stoppen, met de 
opdrachten END en STOP. Wat 
is nu het verschil tussen deze 
twee opdrachten. 

Het END-statement wordt voor- 


namelijk gebruikt als ’officiële’ 
beeindigingsopdracht. In een 
goed geschreven programma 
heeft het weglaten van de END- 
instructie geen gevolgen. 
Commodore-computers genere- 
ren namelijk, bij het bereiken 
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van het einde van een program- 


‘ma, uit zichzelf een END- 


opdracht. Toch plaatsen gerou- 
tineerde programmeurs meestal 
een END-regel in hun program- 
ma. Uit gewoonte, maar ook 
om een programma mooi 
gestructureerd af te ronden. 

De STOP-opdracht heeft een 
heel andere functie. Als de com- 
puter dit commando tegenkomt, 


antwoordt hij met een BREAK 
IN regelnummer’. STOP- 
opdrachten worden gebruikt om 
fouten in Basic-programma’s op 
te sporen. Door op bepaalde 
plaatsen een STOP te zetten, 
wordt gekeken of de inhoud 
van variabelen nog steeds juist 


is. De opdracht helpt dus mee 


aan het 'ontluizen’ van pro- 
gramma's. 


SAVEN MET MACHINETAAL- 


MONITOR 

De meeste machinetaal- 
monitoren gebruiken dezelfde 
SAVE-syntax. Om een machine- 
taalprogramma vanuit een mo- 
nitor op te slaan, gaat u als 
volgt te werk: 

(We nemen aan dat het machi- 
netaalprogramma ’test’ heet, dat 
het begint op $4000 en eindigt 
op $4040 en dat het naar casset- 
te moet worden weggeschreven.) 
S”TEST’,01,4000,4041 

De drie getallen achter de pro- 
grammanaam hebben de volgen- 
de betekenis: 

Ol is het device-nummer. Voor 


cassette is dit Ol, voor disk is 
het 08 (of 09 als u over een 
tweede schijfeenheid beschikt). 
4000 is de start van het machi- 
netaalprogramma. 

4041 is het einde van het machi- 
netaalprogramma plus 1. Het is 
zeer belangrijk om één byte 
meer op te geven. Er wordt na- 
melijk gesaved TOT de laatste 
byte. Dit is een van de redenen 
waarom zoveel machinetaalpro- 
gramma’s vanuit een monitor 
niet werken als ze eerst wegge- 
schreven zijn en daarna op- 
nieuw worden ingeladen. 


BEGINADRES VAN 


PROGRAMMAS 
De twee volgende programma’s 
— respectievelijk voor cassette 
en schijf — zoeken het begina- 
dres van een programma voor u 
uit. Het beginadres is de plaats 
van waar een programma in het 
geheugen wordt geladen. 


Voor cassette: 

10 open 1 

30 print programmanaam” 
40 forx=833 to 848: 
printchr$(peek(x));:next 

50 print:print’’beginadres:”’ 
;peek(829) + 256*peek(830) 
60 print:print”’eindadres:”’ 
speek(831) + 256*peek(832) 
70 end 


Voor schijf: 
1Oinput”’programmanaam:”’;pr$ 
20 open3,8,3,pr$ 

30 gosub100 

40 if er then stop:rem error 

50 get#3,bl$:getff3,b2$:close3 
60 bl =asc(b1$ + chr$(0)):b2= 
asc(b2$ + chr$(0)) 

70 print’’beginadres:”’;bl +256 
80 end 

100 open! ,8,15:input#1,er,er$, 
el,e2:close Lif er then print 
er„er$ 

110 return 


WACHTEN OP EEN TOETS 


Het volgende programma de- 
monstreert een handige manier 
om te wachten tot er een toets 
wordt ingedrukt, bijvoorbeeld 
na het op het scherm zetten van 
een openingsbeeld. 

10 print:print:print’’druk op een 
toets” 

20 pokel98,0 

30 geta$:ifa$ =”””then30 

40 print:print’’nu volgt de rest 
van het programma” 


De ’POKE 198,0’ instructie in 





regel 20 zorgt er voor dat de 
toetsenbuffer leeg is. Elke 
zestigste seconde kijken de 
Commodore 64 en de Vic 20 of 
er een toets wordt ingedrukt. 
De Ascii waarde van deze toets 
wordt vervolgens in een aparte 
(toetsen-)buffer opgeborgen. In 
geheugenplaats 198 wordt bijge- 
houden hoeveel toetsen er zijn 
ingedrukt. Vandaar de opdracht 
POKE 198,0; de computer weet 
aan de hand daarvan dat er nog 
geen enkele toets is ingedrukt, 








LIST-BEVEILIGING 


Veel Basicprogrammeurs dro- 
men ervan om hun listings te 
beveiligen, zodat ze niet beke- 
ken kunnen worden. Er bestaat 
geen Basic-opdracht om dit te 
bereiken. Een oplossing voor 
het probleem is er echter wel. 
Hiervoor maken we gebruik van 
het REM-statement. Als eerste 
regel van een programma toetst 


AANHALINGS- 


u in: 

10 REM <shift L> 

Dat betekent dat u na REM de 
shift-toets ingedrukt houdt ter- 
wijl u de letter L intoetst. 

Als u nu de opdracht LIST 
geeft, antwoordt de computer 
met ?SYNTAX ERROR. 

Het listen van een programma 
wordt dus een stukje moeilijker. 


TEKENS WEGLATEN 


In sommige gevallen is het toe- 
gestaan om de laatste van twee 
aanhalingstekens weg te laten. 


Kijkt u maar eens naar het vol- 
gende voorbeeld: 
10 print’'dit is een test’ 





Maandelijkse rubriek met listings van programma's die het waard zijn in uw 
programmaregels zijn voorzien van een controle-getal, voorafgegaan door (shi 


20 print’ ‘dit is een test 
Ondanks het ontbreken van de 
aanhalingstekens in regel 20, 
wordt deze regel normaal uitge- 
voerd, ALLEEN ALS HET OM 
HET LAATSTE TEKEN VAN 
EEN BASIC-REGEL GAAT, is 
het dus toegestaan om het twee- 


KORT 

® Wist u dat de 0 (nul) op 
twee verschillende manieren kan 
worden ingevoerd? 

OA Be. 

doet precies hetzelfde als: 

10 A=0:B=0 





de aanhalingsteken weg te laten. 
De volgende regel is dus niet 
toegestaan: 


10 print’’dit is een test:goto10 
De computer zou dan ’dit is een 
test:goto10’ op het scherm 
schrijven. 


® Met POKE 649,0 kunt u, zo- 
wel op de Vic als op de 
CBM-64 het toetsenbord uit- 
schakelen. Na POKE 649,10 
kunt u het toetsenbord weer ge- 
bruiken. 
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pro ramma-bestand te worden opgenomen. Alle 
spatie. Die woorden, de haakjes en de schuine 


streep moet u niet intikken, maar u dient OEE de shift-toets en de spatiebalk In te drukken. Het controle-getal zelf 
bestaat uit twee letters of twee cijfers of uit een letter en een cijfer. Het programma dat het controle-getal voor de computer 
begrijpelijk maakt, vindt u in Commodore Dossier. 


GRAPJES MET TEKSTSTRINGS 


Met behulp van onderstaande 
korte programma’s kunt u in 
hoofdprogramma’s grapjes met 
tekstregels uithalen, zodat de 
aandacht van de gebruiker vast- 
gehouden blijft. Bovendien kunt 


LISTING 1 


100 
110 
130 


bij het starten of beeindigen van 
een programma op een originele 
manier een boodschap op het 
scherm zetten. 

De listings hieronder maken in- 
tensief gebruik van zogenaamde 


besturingscodes. In onze listings 
bijvoorbeeld CHRS$(17) en 
CHR$(9) voor respectievelijk 
CURSOR DOWN en CURSOR 
RIGHT. Deze besturingscodes 
zorgen er voor dat de tekst naar 


printehr$(147):poke53281,0:poke53280,0Cshift>/Xspatie>08 
af='wij presenteren trots..."<shift>/{<spatie>da 


een bepaalde plaats op het 
scherm wordt gebracht. Uiter- 
aard kunt u de boodschappen in 
deze listings vervangen door uw 
eigen tekst. 





b8=chr8(iJ)Cshiftd/Cspatie>98 

for i=l to 12:b$=b$tchr$(17):next{shiftd/{spatied3a 
150 for ist to 19:b$=b$tchr$(29):nextishift?/<spatie>26 
160 for x=itol2:print left$(b$,33-x)mid$(as,13-x,2kx): 
next<shift>»/{spatie>af 

180 poke 646, ((peek(646)+1dandis)Xshift>»/{spatiedfc 

190 if peek{646)=0 then poke646,1<shift>/Xspatie>59 

200 get q$:if q$="" then goto 1604shift>/4spatie>73 


140 


LISTING 2 


100 
110 
120 
130 
140 


printchr$(147):spoke53281,0:poke53280,0Cshift>/Cspatie»08 
as="Wwij presenteren trots..."{shift»/{spatie>da 

for i=l to 24:c@$=ecStehre(32)inext{shift»/{spatie>cc 
b#=chr$(i9déshiftd/{spatied98 

for i=l to 1Z:b$=b$tchr$CiJ):inextéshift>/<spatie>3a 
159 for i=l to 19:b$=b$tenrs2Idinextsshiftd/{spatie>26 
160 for z=itol2:print left$(b$,33-r)midslas, 13-R, 2u): 
nezt{<shift>/{spatiedaf 

170 for x=el to fZ:print lefts(b$,33-x)midsCCS,13-x, ZK): 
next{shiftd/{<spatieda7 

180 poke 646,(lpeek{646dtldandi5j{4shiftd/Cspatiedfc 

190 if peek(646)=0 then poke646,l<shift»/<spatie»59 

200 get q$:if q9="" then goto 1604shift>/{spatie>73 
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LISTING 3 


100 
110 
120 
130 


140 
150 






LISTING 4 


100 
110 
120 
130 
140 
150 
160 
next{shift>/{spatie)35 


for 


print chr$(147)£Xshift>/<spatie>09 
a$="even geduld alstublieft!” {shift>/<spatie>d4 

for i=l to 24:c$=c$tchr$(32)d:inext<shiftd/{spatiedcce 
b$=chr$(19)Sshift?/<spatie>928 
for iel to 12:b$=b$tchr$Ci7)inextéshift>/{spatie»3a 
i=l to 22:b$=b$tchr$(299):nextsshiftd/Cspatied2e 
for x=0 to ti:print left$(b$,32-x)mid9Cas,12-x,2+2xx): 


printchr$(147):poke53281,1:poke53280,14shift>/&spatie>08 
fori=ito2d:v$=v$tchr$(17d:next{shift»/{spatieddd 
fori=lto35:h$=h$tchrsl2I) :nextishift>/{spatie>c6 
a$="einde"<shift>/<spatie>l6 
x=int(36xrnd(0))d:iy=sintC25xrndl0))<shift>/<spatie>b5 
printchr$(i9)lefts(v$,ydlefts$(h$,rdass{<shiftd/<spatied80 


170 for x=0 to tl:print left$C(h$,32-x)mids Cos, 12e, 2t2RK)E 


next<shift»/<spatied3d 


180 for x=0 to Iléshift>/{spatied4b 
190 print left$(b$,21i)lefts(as,x+idrights(b$,22-2xx) 
right$las,xti):inext<shift>/4spatiedfl 
200 for x=0 tao 1iéshift>/<spatied37 

210 print left$(b$,21i)left$C(c$,xti)drights(b$,22-2xx) 
right$(c$,xt1): next<shiftd/<spatie>9d 


220 get qe:if qe" 










In hun soort staan Commodore 
computers op eenzame hoogte 
wat betreft hun muzikale kwali- 
teiten. Onderstaande program- 
ma’s bewijzen dat eens te meer. 
Het programma TUNE GENE- 
RATOR oftewel DEUNMA- 
CHINE geeft een kleine maar 
indrukwekkende demonstratie 
van het muzikale vermogen van 
de computer. Het programma 
kiest RANDOM uit een bepaal- 
de hoeveelheid beschikbare ac- 
coorden. De muziek die zo ont- 
staat, kan varieren van zoet en 
lieflijk tot — laten we zeggen — 


TUNE GENERATOR 





MAESTRO,MUZIEI! 


then goto 16OSshift»>/éspatie>67 


betrekkelijk primitief. Denk aan 
de volumeknop! 

Het swingende programma 
TECHNO-ROCK is een korte, 
meerstemmige fuga met een 
rock-ritme, gelardeerd met wat 
synthesizer-licks. Excuseer het 
jargon. 

Volledigheidshalve hebben we 
voor de muzikale leken onder u 
het begrip fuga’ even in het 
woordenboek opgezocht. Het 
blijkt een meerstemmig muziek- 
stuk te zijn waarin het thema, 
door één stem ingezet, door de 
andere stemmen wordt overge- 


nomen. Zoals Vader Jacob’ 
dus ongeveer. 

Het deuntje Home on the Ran- 
ge’ is een Amerikaanse 'ever- 
green’, die ook bij ons vrijwel 
iedereen bekend voor zal ko- 
men. Het programmaatje is 
weer heel inzichtelijk opge- 
bouwd. Zo is bijvoorbeeld een- 
voudig te herkennen dat in regel 
20 de geluidschip wordt vrijge- 
maakt en daarna het volume op 
z’n hardst (15) in lokatie 54296 
wordt gePOKEd (regel 30). 
Over de twee laatste mu- 
ziekstukjes, ’Halley’ en ’Lagu- 


10 dimhiC5),11(5),h2(5),12(5),nh(5,5d,nl(5,5)éshiftd/éspatieda4 
20 printchr$(147);s "tune generator”{shift>/éspatie>3b 







na’ zullen de meningen verdeeld 
zijn. Menigeen zal zelfs ontken- 
nen dat het hier om muziek 
gaat. De programma’s zijn ge- 
schreven door de Amerikaan 
Joey Latimer, redacteur van 
‘Family Computing’. Latimer 
specialiseert zich in wat hijzelf 
noemt ’hyperspace sound pain- 
tings’, hetgeen vertaald zou 
kunnen worden met ’futuristi- 
sche herrie’, Dergelijke geluiden 
doen het bijvoorbeeld erg goed 
bij space invader-achtige spel- 
letjes. 


30 s=54272:fori=s to s+24:pokei,O:neztiéshiftd/{spatie>88 
40 forx=ito5:readhizd,lilad,h2lxd,l2tzdSshiftd/Sspatie>72 
50 fory=itoSsreadnhtx,y),nltx,y)snexty,x<shiftd/{<spatiedf8 
GO pokes+5,34:pokes+6,243:pokest4,17<shift»/<spatie>7d 

70 pokest12,34:spokes+13,243:pokestil,17<shifth/<spatie,31 
80 pokes+19,34:pokes+20,243:pokes+18,17Cshift>/{spatied25 
90 t=inttrndirk20)+20shiftd/Sspatie>85 

100 forq=OtolO:pokest+24,ginextg<shift>/<spatie>55 

110 forx=ito téshift»/{spatiedc4 

120 r=int(rnd(i)k5)+tigshift>/{spatiedas 

130 ifx=l then rv=l(shift?»/{spatieda4 

140 ifx=t then r=44shift>/{spatiedca 

150 pokesti,hi(r):pokes,li(r)Xshiftd/Cspatied33 

160 pokest8,h2(r):pokes+7,12(r)shift>/{spatie>9l 

170 fory=lto3:sc=int(rnd(i)kS)ti<shift»/<spatie>c3 

180 pokest15,nh(r,sc)h:pokestl4,nl(r,sc)Xshift»/<spatie>8b 
190 for de=ttol0Orineztdesnexty,rz{shift>/{spatie>04 

200 forq=lOtoOstep-0.05:pokest24,g:inextg<shift>/<spatiede0 
210 for de=ito700O:next de{shift>/<spatiedfb 

220 forx=Ôtol:pokestx,O:pokest7tx,O<shift»/{spatied8f 

230 pokesti4+tx,Ornextx:igoato90sshift>/<spatied39 

1000 datal6,195,21,31,25,30,33,133,37,162,42,62,50,60{shift>/{spatied7a 






















COMMODORE DOSSIER AKTIEF 6 





1010 data22,96,28,49,25,30,28,49,31,165,33,135,44,1934shift>/éspatie»69 
1020 datal2,143,15,210,18,209,25,30,28,49,31,165,334shift>»/{spatie»7f 
1030 datal35,14,24,16,195,28,49,31,165,33,135,37,162{<shift>/Cspatiedbe 
1040 data42,62,10,143,12,143,21,31,25,30,31,165,42<shift>/{spatieda4 
1050 data62,50,60{<shift>/(spatied9a 


TECHNO-ROCK 


10 dimhiC1289,11128),h2(128),12C128),h3C128),13C128),aC3),bl3,et3) shift, / spa 
tie)>fa 

20 printchr$(147)s "tuning up ... please wait."£Sshift>/Sspatie>4d 

30 5=54272:forx=lto24:pokestr,Osnextx{shiftd/{<spatiedfb 

40 pokes+5,68:pokes+6,68:pokes+12,68{4shift>/{spatie>64 

50 pokes+13,131l:pokes+19,18:pokes+20,184<shift>/<spatied7£ 

6O forx=itot28{shiftd/<spatie>f9 

70 read hi(z),liCx)Sshift>/<spatiedeg 

80 ifx>64andx{8thenlO0Xshift»/<spatiede3 

90 hiztid=hiixdiliktidelikdigextigshift>/<spatied73 

100 nextx{shift>/{spatie>be 

110 forx=ltol284shift>/éspatiedab 

120 ifx{33then h2lu)=0:12rd=Orgotoibûlshiftd/{spatie>05 

130 read h2tx),l2x)dshift>/<spatie>2d 

140 ifx>95andri2itheniG0{shift>/{spatie>04 

150 h2lxtid=h2lxd:l2Cktid=l2CHdikeKtigshift>/Cspatiedbf 

160 neztzéshift>/{spatie>7a 

170 forx=ltol28<shift>/{<spatie>6f 

180 ifx<65then h3lx)=0:13Cx)=0igoto2l04shift»/<spatiedce 

190 read h3lx),13Cx)Sshift>/<spatie>ll 

200 n3tx+ij=h3CKIs13CHtIdD=1CHdexextikshiftd/Cspatiedel 

210 nextx{shiftd/{<spatie>08 

220 forx=ito3tshift>»/Cspatiedtt 

230 readatx),bxd,eclx)Sshiftd/{<spatied78 

240 nextx<shift»/<spatie?Za 

250 poke53281,12:printehrsC147)s;Cshift>/<spatie,13 

260 poke214,lt:print:poke211,9:printchr$(144); "the techno-rock fugue"<shift»/ésp 
atie>fl 

270 pokes+24,15{shiftd/{spatiedd4f 

280 fory=ito3:forx=alydto bly)step cly)Xshifti/{spatied9l 

290 pokesti,hi{(x):pokestO,llCx)shift>/{<spatiedlc 

300 pokes+8,h2(x):pokest7,12(x){shift>d/Sspatiedlc 

310 pokes+15,h3(x):pokest14,13Cxd<shiftd/<spatied>08 

320 pokes+4,33:pokest11,33:pokes+18,33shiftd/{spatied3e 

330 ford=lto20inextdéshift»/4spatie>57 

340 pokest4,32:pokestil,32:pokes+18,32<shift>/<spatie>2b 

350 nextx,y:goto280{shift>/{spatie>79 

1000 datat6,195,18,209,22,96,21,31,25,30,22,96,21,31<shiftd/éspatied48 
1019 data18,209,16,195,18,209,22,96,21,31,14,239,14<shift>/&spatied7e 
1020 data239,14,239,14,239,16,195,18,209,21,31,25,30{<shiftd/{spatie>49 
1039 data21,31,18,209,29,30,25,30,21,31,21,31,18,209Sshift>/<spatie>ac 
1040 data21,31,18,209,18,209,18,209,18,209,25,30,28<shift>/<spatie>98 
1050 data49,22,96,25,30,21,31,22,96,18,209,21,31,25{éshiftd/éspatie>8d 
1060 data30,28,49,22,96,25,30,31,31,22,96,18,209,21<shift»/<spatie>be 
1070 data31,25,30,28,49,22,96,25,30,21,31,22,96,18{4shift>/Xspatie>88 
1980 data209,21,31,22,96,22,96,22,96,22,96,25,30,14éshift»/{spatieja8 
1090 data24,16,195,15,210,18,209,16,195,15,210,14,24Xshift>/{spatie>f2 
{100 data25,30,14,24,16,195,15,210,22,96,22,96,22,96{shift)»/{spatiebe2 
1110 data22,96,25,30,28,49,33,135,31,165,37,162,334shift>/{Sspatiedeb 
1120 datal35,31,165,28,49,25,30,28,49,33,135,31, 165{4shift»/<spatiede3 
1130 data22,96,22,96,22,96,22,96,25,30,28,49,31,165{shift>/éspatiedf2 
1140 data37,162,31,165,28,49,37,162,37,162,31,165,31<shift>/<spatie>c7 
1150 datal65,28,49,31,165,28,49,28,49,28,49,28,49,37{shift>/<spatieddá4 
1160 datal62,42,62,33,135,37,162,31,165,33,135,28,49{Xshift»/<spatie»3e 
1170 data3l,165,3/,162,42,62,33,135,37,162,31,165,33<snift»/éspatie»20 
1180 datal35,28,49,31,165,37,162,42,62,33,135,37,162<shift>/<spatied2e 
1190 data31,165,33,135,28,49,31,165,33,135,33,13059,334shift>/{<spatie>ti 
1200 data135,33,135,8,97,9,104,11,48,10,143,12,1434shift>/{spatie>03 
1210 datall,48,10,143,9,104,8,97,9,104,11,48,10,143Xshift>/Cspatied27 
1220 datal4,239,14,239,14,239,14,239,8,97,9,104, 10Xshift>/<spatie>78 
1230 datal43,12,143,10,143,9,104,12,143,12,143,10€shift>/{spatied5c 
1240 datat43,10,143,9,104,10,143,9,104,9,104,9,104{shift>/{spatied69 
1250 data9,104,1,128,1,120,57,=-1,65,128,1<shift>/<spatie>76 


HALLEY 


10 printchr$C147)s;tabl9);s halley’s comet funpark”<shift>/<spatie>bO 

20 s=54272:fore=s to s+28:pokee,Orinerte{shiftd/{spatied82 

30 pokes+5,34:pokest6, 100{shift»/<spatie>ll 

40 pokes+12,37:pokes+13,145:pokes+24, 15{4shift>/{spatie>5d 

5Q forx=Stol4S:pokestl,x:ipokes,x<shift?/<spatie»63 

60 ifxC6Sthenpokes+8,r:pokest+/7,x:pokes+11,33:gotoli0gshift>/<spatie>36 
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70 pokes+4,65sa=intrndl1i)k5ON+lOCshift>/{spatiedc7 

80 if x/adint(x/alorxd65thenloogshift»/{spatie»l2 

90 pokes+8,37:pokes+7,162:pokest11,129:f=xkigotaollOshift>/<spatie>09 
100 ifx-f>rndtijkxSthenpokestil,O<shift>/{spatie»2c 

110 for de=ito &/1.2:next de{shift>/{spatie>a8 

120 pokes+4,129:inextx:pokest4,128:pokestll,OXshift>/{spatiedeb 

130 for de=lto (rnd(l)x1000)+500:snext de:pokes+11,32Cshiftj/{spatie>5d 
140 forx=11000to (rnd(1)k500)+500step-50{shift»/Xspatie»£f8 

150 fh=int(r/256)rfl=x-(2564kfh)Cshiftd/{spatiedb9 

160 pokes+1,fh:pokes,fl:pokes+4,129shift>/{<spatie»73 

170 pokes+8,fh:pokest7,fl:pokestl1,129{shift>/<spatie>d3 

180 for de=lto K/300:next de{<shift>/{<spatied6c 

190 pokes+4,65:pokestli,65:snextx:gotob0{shift>/{spatiede6 


LAGUNA 


10 printchr$(147);stab(8);s"the laguna beach nebula"{<shift>/{spatiede0 
s=54272:fore=s to s+28:pokee,O:inext{<shift>/<spatie>c7 
pokes+5,255:pokes+6,255Cshiftd/{4spatied27 
pokes+12,255:pokes+13,255<shift>/{spatie»13 
pokes+19,34:pokes+20,100Xshift»/<spatied34 
pokes+8,244:pokes+7,243:pokestll,1294shift>/{spatied4c 
forz=3tol5step0.7{shift»/{spatie>3c 
pokest24,z:for de=lto50:next de:nextz<shiftd/{spatie»8d 
a=(rnd(1i)k6500+20004shift»/<spatiedid 

b=Crtndt1dx500N+350Lshiftd/éspatiedlb 

forx=atob step-65{<shift>/<spatieda3 
fh=int(x/256):fl=g-(256xfh)Cshift>/éspatie>57 
pokestl,fh:pokes,fl:pokes+4,129<shift»/Cspatie»5l 

for de=ito (rnd(i)ki0Ol:next de:snextxéshift)>/<spatie>65 
forz=15to3step-0.02:pokest24,zinextzéshift»/<spatie>bd 
pokes+4,1284shift>/{spatieded 

for de=ito (rndli)kx700)+300Sshift>/{Sspatied85 

if rnd(1)>0.02then230<shift>/{<spatied8f 
pokes+15,24d:pokest+14, 103:pokes+18,33Cshiftd/Cspatiedf4 
fort=itotS5O:nextt<shift>/<spatieje2 
pokes+15,217:pokes+14,189{Xshiftd/{spatieded 
pokes+18,32<shift>/<spatlie>96 

if rndt1)>0.Olthen280Xshift>/{éspatie»d5 
pokes+15,172:pokest14,210:pokes+18,334shift>/<spatie>bd 
fort=ito5O:nexttéshiftd/{spatiedel 
pokes+15,183:pokest+14,25<shift>/{spatie>03 
fort=ltal0O:nextt:pokes+18,32<shift>/é<spatie>50 

next de:goto70<shift>/{spatied2e 


HOME ON THE RANGE 


10 tempo=100Xshift>»/<spatiedca 

20 form=54272t054296:pokem, Ornextmishiftd/{<spatiedcd 

30 poke54296,15{shift>/Sspatie>9d 

40 poke54277,100Xshift»/<spatie>91 

50 poke54278,100Cshifth/éspatied84 

60 readhi,lo,durg<shift»/{spatie)fa 

70 ifhi=-ithenpoke54296,0:end<shift>/<spatiedde 

80 poke54273,hi:poke54272,lo<shift>/éspatie>69 

90 poke54276,17<shift>/<spatie>d5 

100 adur=durt+tempolshiftd/{spatied7e 

110 for loop=! to adursnezt loop{shift»/{<spatied72 

120 poke54273,0:poke54272,0Xshift»/<spatie>43 

130 goto60{shift>/<spatie>0d 

1000 data18,209,2,18,209,2,25,30,2,28,49,2,31,165,4<shift>/{spatie>6f 
1010 data25,30,1,23,180,1,21,31,2,33,135,2,33,139,24shift»/Xspaties7d 
1020 data33,135,4,31,165,1,33,135,1,37,162,3,25,30,1{shift»/{spatie»4f 
1030 data25,30,2,25,30,2,23,180,2,25,30,2,28,49,10{<shift>/{spatiedbb 
1040 datal8,209,2,18,209,2,25,30,2,28,49,2,31,165,4{shift>/{spatie>90 
1050 data25,30,1,23,180,1,21,31,2,33,135,2,22,135,2,33<shift»/{spatie>dbe 
1060 datal35,4,33.135,1,33,135,1,31,165,3,28,49,1<shift>/<spatie>b9 
1070 data25,30,2,23,180,2,25,30,2,28,49,2,25,30,104shift>»/{spatie»93 
1080 data0,0,2,37,162,6,33,135,2,31,165,3,28<shift>/<spatie»86 

1090 data49,1,31,165,10,18,209,1,18,209,1,25,30,4Xshift>/{spatiedd4 
1100 data25,30,1,25,30,1,25,30,2,23,180,2,25,30,2<shift>/<Xspatie>cl 
{110 data28,49,10,18,209,2,18,209,2,25,30,2,28,49,24shift)»/{Xspatie)d4 
1120 datas1t,165,4,25,30,1,23,180,1,21,31,2,34, 130, 24Shiftj/Cspatiejedg 
1130 data33,135,2,33,135,4,33,135,1,33,135,1,31,1659,3{4shift»/{éspatiejeB 
1140 data28,49,1,25,30,2,23,180,2,25,30,2,28,49,2<shift»/{spatiedfa 
1150 data25,30,10,=-l;=i,=14shift»/<spatie,cc 
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BITWAARDEN 
Het volgende programma laat 
de afzonderlijke bitwaarden 
zien. Dat kan vooral handig 
zijn als gekeken moet worden 
naar de spelpook- en gebrui- 
kersaansluiting. Als het pro- 
gramma start, vraagt het naar 
_de geheugenplaatsen die u wilt 
bekijken. De 8-bit binaire waar- 
de staat boven aan het scherm 





en hij wordt voortdurend ver- 
verst. Als functietoets Ll wordt 
ingedrukt, komt u weer bij het 
invoer-programma terecht. 
Probeer de volgende geheugen- 
plaatsen maar eens. 

653 

De toetsenbord-vlag. Druk op 
SHIFT CTRL en de 
Commodore-toets om te zien 


hoe die vlag aan-, en uitgezet 
wordt. 

56321 

Het spelpookje nummer 1. Bij 
het bewegen van het pookje ver- 
anderen de bitwaarden. 

56320 

Spelpook 2 

56571 

De invoer- en uitvoerlijnen voor 


de gebruikersaansluiting (portB) 
nadat de DDR op 56579 is gezet 
1 

Bit 4 is de cassetteschakelaar en 
bit 5 bestuurt de motor van de 
cassetterecorder 

53268 

Het ’rooster’ bit 7 vergelijkt het 
register tijdens het werken, 


_BITWAARDEN 


4 pl$="1"<shiftd/<spatie>bf 
5 off$="O"Cshift>/{spatiedec 
6 dimas(7d<shift>/{<spatiedd3 
7 printchr&(147)"bekijken van de bit-waarde"{shiftd/{spatie>6b 
8 printchr#(17) "fl voor nieuw adres"{<shift>/{spatie>03 

10 printchr$(i9)chrsCi7dchrsCi7dchrs(li7dchersCti7dechrs(ijdchrsC17)} welk adres 
s"<shift>/{<spatie>33 
20 inputbé<shift>/{<spatie>d3 
pspeek(b)shift>/{spatie>7a 
rem Xx bit 7 x{shift>/{spatiedfa 
iflpandi28)>Othenas(7)=pl$:gotoS0Cshift>»/éspatie>i9 
a$(7)=offs$Cshift>/<spatie>a2 
rem « bit 6 «éshiftd/{spatiedd7 
ifCpand64)>Othenas{(6)=pl$:goto7Oshift»/<spatie>0f 
as(6)=offs$shift>/<spatiedb7 
rem Xx bít 5 xCshift»>/{<spatie>a0 
if(pand32)>Othena$(S)=pl$:gotoosshiftd/<spatied75 
asth)=off$Lshiftd>/{spatie>d8 
rem x bit 4 x{shift>/éspatiedbd 
ifCpandi6))Othena8(4)=pl$:gotollOlshift»>/Cspatie»57 
a$(d)=offsCshiftd/{spatieded 

rem % bit 3 x{shift»/(spatied8e 
ifC(pand8)>Othena$(3)=pl$:;gotol30<shift>»/<spatie>59 
a$(3h=offsSshiftd/{spatie>f6 

rem Xx bit 2 xéshift»/{spatie>63 
iflpand4)>Othena8$(2)=pl$:gotol5OCshiftd/<spatiedbe 
as(2)=offs$Cshiftd/Cspatie>03 

rem & bit 1 xéshift»/{spatie>74 
ifCpand2))>OthenasCij=plg:gotol70Cshiftd/(spatiedad 
asttj=offsishiftd/<spatie>2c 

vem X bit O x(shiftd/{spatied49 
if(pandi)>Othena$(O)=pl$&:gotol904shift>/<spatie>9d 
as(Ol=offs{shift»/{spatie>39 
z$="":z$=asl7ltasl6)tastHltasld)tasC3ltastl2dtastlidtastOlshiftd/<spatied2e 
printehr${(19dechrs(ijdehrsli7dechrsCli7dechersCl17dszsshiftd/Cspatiedda 
getgs<shift»/<spatie>10 

ifg&=chr$(133) thengotolO{shift>/{spatiedb5e 
goto25<shift>/éspatie>68 


190 
200 
210 
220 
230 


EODIAG 


U hoeft niet in astrologie en de vormen aan het firmament. gramma geeft niet alleen de beeld heen lijkt te trekken. Het 


voorspellende kracht daarvan te 
geloven om toch gefascineerd te 
raken door de tekens van de 

dierenriem en hun verschijnings- 


ZODIAC 


Voor de sterrenwichelaars onder 
u toont het programma Zodiac 
de sterrenbeelden zoals ze aan 
de hemel verschijnen. Het pro- 


naam van het betreffende ster- 
renbeeld, maar ook de naam 
van de helderste ster erin en de 
tijd dat de zon door het sterren- 


10 dimna8C12),bs$(12},dt#C12,2d,sn(i2d,str(l2,18)Cshift>/Cspatie>d7 


poke53280,0<shift>/<spatie»a3 


30 poke53281,OCshiftd/<spatie>a8 





forx=ltol2<shift>/<spatie>d5 
readnas(xd,bstlrd,dtsr,id,dts(un, 2d,sntxdtshiftd/Cspatiedec 
fory=ito sn(x)<shift>/<spatie>87 
readstr(x,y){<shift>/{spatie,b8 
nexty,rxéshiftd/éspatiedff 
printehr$Ci47)s<shiftd/<spatie>Oc 
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programma bevat tevens een 
kwisje waarmee u uw kennis 
van zaken kunt testen. 








COMMODORE DOSSIER AKTIEF PROGRAMMA'S 


100 printtab(i7dsehrs(5)s"zodiac"<shift>/<spatie>98 

110 print<shift>/{spatie>f7 

120 print”druk op <k) om de sterrebeelden van de"<shift>/<spatie>82 
130 print”“dierenriem te bekijken,” "{<shift>/{spatie>2b 

140 print"âruk op <r> voor het raadspel,"<shiftd/4spatiedif 

150 print”druk op £s) om te stoppen.”"s{shift>/{spatied2c 

160 getk$<shift>/{spatie»be 

170 ifk$="s"thenend{shift»/{spatie>88 

180 ifkKSCh"k"and k$O"r"theni60lshiftd/{spatied19 

190 z=lk$="r")<shift>/Cspatiedd8 

200 sc=0Xshift»/{spatie>5a 

210 fori=ltol2<shift>/<spatied3e 

220 if z thenx=int(rndlidki2)+ligoto34Oshift»/<spatiedcf 

230 x=igshift>/{<spatie>45 

240 printchr$(147);<shift>/{spatie>a6 

250 print”de zon is in het sterrebeeld"<shift>/<spatie>1l0 

260 printna®#{(x);” tussen "sdt$Cxz,1)3" en "sdt$Cx,2)s"."Cshift>/Cspatiedf9 
279 print<shift>/<spatie>96 

280 printna%(x);s"’s helderste ster is"<shift>/{<spatie>c7 

290 printbs®$Cx)s”"."Sshift»/<spatie»c3 

300 print{Xshift>»/&spatiedb4 

310 print”druk op een toets voor "ina$(x)s”."<shift>/éspatie>d6e 

320 getkS{Xshift»/{spatie>8f 

330 ifk$=""then320<shift>/{spatie>8b 

340 printehr$(147)s<shift>/Cspatie>03 

350 fory=lto sn{x){<shift>/<spatieded 

360 pokel024tstr(u,y),42-(39xCy=id)Cshiftd/Cspatiedd7 

370 poke55296tstrx,yd,l<shift>/<spatie>l7 

380 nexty{shift>/éspatieda6 

390 ford=ito3500éshift>/<spatie>63 

400 nextd<shift>/<spatie>57 

410 if not z then550Xshiftd/<spatied75 

420 printchr$(147)i{4shift>/<spatie>f3 

430 input”"welk sterrebeeld was dat”"sr$Cshift>/{spatie>0b 

450 ifr$=na8(x)then sc=sctl:iprint"goed!t":goto470Xshiftd/{<spatie>5a 
460 print”nee,het was “isna$(x)s“.”(shift>/<spatied76 

470 print“wat is zijn" <shiftd/<spatie>0l 

480 input”helderste ster ‘ir$<shift)/éspatie»69 

490 ifr$=bs$CH)dthen sc=sctli:iprint"right!":goto5l0{shift>/{<spatie)03 
500 print“nee, het is “;bs$lx)5"."<shift>/{<spatied2f 

51G print{shiftd/<spatied66 

520 print'druk op een toets."{shift>/éspatie>9d 

530 getk${shift»/<spatle>de 

540 ifk$=""then530{shift>/{spatiedd9 

550 nexti<shift>/<spatiedef 

560 if not z then90Xshift»/{spatiede5 

570 printchr$(147)s<shift»/<spatiedbe 

580 print“uw score was"ssci”van de 24."<shift>/{<spatie>b0O 

590 print“dat is“sint((sc/24)k100)s"procent goed."<shift>/{spatied7b 
600 print<shift>/<spatie»c3 

610 print”druk op een toets."{shift>/<spatie>f7 

620 getk${shift>/{spatieda0 

630 If kf=""then6204shift>/<spatle>bl 

640 goto9Xshiftd/Lspatied02 

1000 data steenbok,algedi,20/1,18/2,13,156,275,432<shift>/<spatie»74 
1010 data747,825,740,655,531,368,410,415,421,269{Xshift»/{spatie»55 
1020 data waterman,sadalmelik,17/2,13/3,12,103,433{shift>/{<spatied76 
1030 data822,178,17,95,93,407,807,922,481,480Xshift»/<spatie)9f 

1040 data vissen,alrischa,13/3,19/4,18,800,725,727,650{shift»/{spatie>81 
1050 data652,655,666,710,830,874,755,672,565,370,253{<shift»/<spatiedaë 
1060 datal72,90,13{shift>/<spatie>9c 

1070 data ram;hamal,19/4,15/5,7,622,786,866,365,346{shift>/{spatiedde 
1080 data138,62<shift»/<spatie>ad 

1090 data stier,aldebaran,14/5,21/6,13,342,224,306<shift>/{spatie>di 
11900 data384,427,190,163,593,662,748,873,598,719Sshift»>/<spatie»dd 

1110 data tweelingen,castor,21/6,21/7,16,97,99,29,224,5124shift>/<spatiede0 
1120 data639,757,300,299,377,294,493,661,746,954,949Cshiftd/Cspatiedds 
1130 data Kreeft,beta cancri,21/7,11/8,5,954,64, 425<shift»/<spatie»fc 
1140 data584,900{shift>/{spatieddf 

1150 data leeuw,regulus,12/8,16/9,14,749,956,550,464Xshift>/<spatie>fe 
1160 data305,71,153,197,943,887,650,641,410,453Xshift>/<spatie»15 

1170 data maagd,spica,21/9,1/11,12,862,732,591,555<shift>/{spatie»i9 
1180 data455,445,478,318,317,427,185,54l4shift)/Cspatie)3f 

1190 data weegschaal,zuben elgenubi,1/11,22/11,6,382,54Xshift>/{spatied47 
1200 data289,818,849,929Cshift»/Cspatie>le 

1210 data schorpioen,antares,23/11,30/11,15,425,347,72&shiftd/{spatie>57 
1220 data154,353,473,463,581,660,739,895,850,687,607Xshift>/{spatie>77 
1230 data530{shift>/<spatied7f 

1240 data boogschutter,nunki,18/12,19/1,14,296,53,3734shiftd/éspatied0l 
1250 data379,343,494,544,308,626,628,743,865,850,886<shift»/<spatie>55 
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LISTING VAN LEZERS 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De a bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze “lopen”. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste go tamma’s uit deze rubriek kunnen in Same komen om door COMMODORE DOS- 
SIER in samenwerking met een saftware-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


SCREENPRINT 

Een perfect werkend program- _ van dit programma in vergelij- _rakters afdrukt, inclusief diapo- We horen in de toekomst nog 
ma van Johan Eerenberg dat op king met andere soortgelijke, is _ sitief. De gebruiksaanwijzing meer van Johan Berenberg. 
elk willekeurig moment in een dat het supersnel werkt, geen voor het programma verschijnt 

groter programma het scherm enkel ander programma in de in beeld, dus dat kan geen pro- 

kan afdrukken. Het voordeel weg staat en bovendien alle ka- bleem opleveren. 


SCREENPRINT 

rem KAkkAAAAAAAAAAAAAAAAAAKACShIfTI/CSpatliedde 

rem X screen » print xXshift»/<spatie»fd 

vem mmm mans *éshift>/Cspatie>8c 

rem X door johan eerenberg X<shift>/éspatie>94 
rem * *{shift»/{spatie»8a 
rem * 13 maart 1985 x<shift»/<spatie>c5 
vem *Cshift>/Cspatie>88 

rem AAAAAAAAAAAAA AAA AAA AAAAKEShiftd/<spatied87 

r<shift>/<spatie>33 

for Ì = 52736 to 53222éshift>/<spatie>d5 

read z:spoke i,xss=strinext{<shift»/<spatie>99 

data 76, 6,206, O0, 32, 1,169, O,14l, 5,206,120éshift»/{spatiedba 

data 160, 0,173, 24,208,201, 23,208, 2,160, 7,169Xshift>/{spatie>8d 

data 4,170,134,184,132,185,133,186, 32,192,255,162<shift>/<spatiedaa 

data 4, 32,201,255,169, O0,133,251,133,253,14l, 3Cshift>/Cspatiedac 

data 206,169, 4,133,252,166,253,232,224, 28,208, 3Xshift>/{Xspatiedd2 

data 76,214,206,173, 5,206,201, 1,208, 5,169, 14shift>/<spatiedff 

data 32,210,255,134,253,224, 1,240, 7,224, 27,240{shift>/<spatiedfd4 
100 data 3, 76,117,206,162, 0,169, 45, 32,210,255, 32{shift»/{&spatie>cl 
110 data 210,255, 32,210,255, 32,210,255,169, 43, 32,2104shift>/{spatiedch 
120 data 255,232,224, 8,240, 87, 76, 90,206,169, O,133{shift»>/<spatiede0 
130 data 254,164,254,200,192, 41,240, 73,132,254,162, Olshiftd/{spatie>27 
140 data 160, O,177,251,201,128,144, 5, 56,233,128,162<shift»/<spatie>10 
150 data 1,201, 32,144, 8,201, 64,144, 10,201, 96,t44tshift>/{spatie>3f 
160 data 3, 24,105, 32, 24,105, 32,236, 3,206,240, 21i£4shift>/<spatie>39 
170 data 142, 3,206,I4l, 4,206,169, 18,224, 1,240, 3{shift>/{spatie)36 
180 data 24,105,128, 32,210,2595,173, 4,206, 32,210,255{shift>/{Xspatie>27 
190 data 230,251,208, 2,230,252, 76,121,206,169, 13, 324Xshift>/{spatied20 
200 data 210,255,169, O,lt4l, 3,206, 76, 53,206,173, S<shift>/{spatie>68 
210 data 206,201, 1,208, 5,169, 15, 32,210,2559,169, d4Xshift>/{spatie»74 
220 data 32,195,255,169, 3,133,154, 88, 76,197,207,2344shift»/{spatie»4f 
230 data 234,169, 1,141, 5,206, 76, 11,206, 34,213, Oéshift»/éspatied74 
240 data 32, 32, 32, 32,120,169, 26,141, 20, 3,169,207{shift>/{spatie»58 
250 data I4l, 21, 3, 88, 96, O, 64, 0,137, 1, OO, 34Csnift)>/Cspatie»of 
260 data 212,229, 0,206,241, O,174,t41, 2,173,197, OXshift>/{spatiedaf 
270 data 205, 14,207,208, 3, 76, 59,207,141, 14,207,201<shift>/{spatie>al 
280 data 4,240, 15,201, 5,240, 14,201, 6,240, 13,201<shift>/{spatied87 
290 data 3,240, 12, 76, 49,234, 76, 74,207, 76, 92,207{shift>/Xspatie>bb 
300 data 76,110,207, 76,128,207,224, 1,240, 7,162,206{shift»/{spatied8c 
310 data 160, O, 76,143,207,162,206,160,241, 76,143,207{shift»/Xspatie>9e 
320 data 224, 1,240, 7,162,207,160,228, 76,143,207,162{shift>/{spatiedd2 
330 data 207,160,228, 76,143,207,224, 1,240, 7,162,207Xshift»/<spatie>d8 
340 data 160,228, 76,143,207,162,207,160,228, 76,143,207{shiftd/{spatiedfa 
350 data 224, 1,240, 7,162,207,160,228, 76,143,207,162éshift>/{spatliedcc 
360 data 207,160,228,142, 23,207,140, 24,207,104,141, 16éshift»/éspatledff 
370 data 207,104,141, 17,207,104,141, 18,207,104,141, 194shift>/{<spatiedef 
380 data 207,104,141, 20,207,104,141, 21,207,173, 23,207Xshift>»/{spatiede7 
390 data 72,173, 24,207, 72,173, 19,207, 72,169, 49,14l4shift>/éspatie>24 
400 data 20, 3,169,234,141, 21, 3, 64,234,120,169, 26<shift>/{spatie>3e 
410 data I4l, 20, 3,169,207,141l, 21, 3,172, 16,207,174<shift>/{<spatie>0a 
420 data 17,207,173, 19,207, 72, 40,173, 18,207, 88,1084shift»/éspatie>00 
430 data 20,207,234,234, 76,197,207{shiftd/{spatie»10 
440 If s {> 61717 then print"fout in data-regels !!"rendéshift>/{spatie>c9 
455 printchr$(147)<shift»/<spatte>ab 
460 print"screen-print is aKtief"{shiftd/{(spatie>2a 
470 print:print”normale print : fl”£<shift»>/{spatie>a7 
480 print:print’brede print 2 f2"Cshift>/Cspatie>90 
490 print:print“uitschakelen srun/stop-restore<shift»/<spatie>c8 
500 print:sprint’opnieuw starten:sys 52992" {shiftd/{spatie>8d 
910 sysS29992:newsshift,/spatie,cc 
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BASIC DEEL 2 


BASIC ONDER DE LOEP 


PROGRAMMEREN MET BEHULP 
VAN DATAREGELS 


Het programmeren met behulp 
van zogenaamde ’data- 
statements’ maakt programma’s 


zeer eenvoudig en overzichtelijk. 


Toch hebben veel Basic- 
programmeurs moeite met het 
gebruik van de data- 
commando’s. Een goede reden 
om er in deze aflevering van 
’Basic onder de loep’ eens aan- 
dacht aan te besteden. 


Data-regels worden in Basic ge- 


C 64, +4, C 16, 


bruikt om op een snelle manier 
een aantal variabelen te ’benoe- 
men’. De data-methode voor- 
komt programmaregels als: 


IOA = 10 
B = 12 
406 == 20 
40 D = 50 
50E = 100 


Bovenstaande manier van be- 
noemen van variabelen kost veel 


VIC 20 


LISTING BASIC ONDER DE LOEP 


10 rem XXX demonstratie van het 
20 rem XXX lezen van dataregels 
30 rem XXX roelf sluman 1985 


100 
110 
120 
130 
200 
210 
220 
230 mas{x) = 
240 x= x ti 
250 goto 220 
300 
310 
320 
330 dax) = 
340 a == x tt Ì 
350 goto 320 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
530 
540 
550 
560 


dim mas$C12) 
dim das C7) 

ra = 
sc = 


x= 1 


es Ì 


for X = 
next 
for Xx = 
next 


data 
data 
data 
data 
data 
data 
data 


read te$:if tes = 
tes 


read te$:if tes = 
tes 


nk 


mn 


print chr$C(19) 
1 to 7 
print,das Cx) 
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then 300 


then 400 


geheugenruimte en is bovendien 
vrij onoverzichtelijk. 

Door nu van het READ DATA 
commando gebruik te maken, 
vervangen we de bovenstaande 
programmaregels eenvoudig 
door: 


10 READ A,B‚C,D,E 
20 DATA 10,12,20,50,100 


In bovenstaande twee regels ge- 
ven we de computer de volgen- 
de opdracht: 

a. Haal een getal uit de 
data-regel 

b. Geef de variabele na READ 
de waarde van dit getal 

c. Schuif een getal op 

d. Schuif een variabele op 

e. Als er nog variabelen over 


53280:rem randkleur (c 64) 
53281i:rem schermkleur (c 64) 
rem XXX hier worden de maanden gelezen 


rem XXX hier worden de dagen gelezen 


rem X%Xk alle data zijn nu gelezen 
print chr$(147) 
1 ta 12 
print masCx) 


forx= 1 to 3 sprint chr$(17):nextrzend 
januari,februari,maart,april 
mei,juni,juli,augustus 
september,oktober;november 
december , X 
maandag,dinsdag,woensdag 
donderdag, vrijdag,zaterdag 
zondag, %X 


zijn, ga dan naar stap à. 

Hier kan dan meteen de eerste 
zogenaamde ’data-error’ optre- 
den. Toetst u de volgende twee 
regels maar eens in: 


10 READ A,B,‚C,D,E 
20 DATA 10,12,20,50 


Als u dit programma runt, 
wordt u geconfronteerd met een 
OUT OF DATA ERROR. 

De computer vertelt u dat hij 
‘zonder data’ zit. Ben logisch 
gevolg van het feit dat u vijf 
variabelen (A,B‚C,D en E) wilt 
benoemen, maar slechts vier va- 
riabelen (10,12,20 en 50) tot uw 
beschikking heeft. 

De computer houdt met behulp 
van een teller bij hoeveel data u 
heeft ‘aangeroepen’ en waar u 
bent gebleven. Gevorderde pro- 
grammeurs buiten dit uit door 
deze teller (die zich o.a. op ge- 
heugenlocatie 63 en 64 bevindt) 
op een door hun gekozen waar- 
de te zetten. 

Als er in deze teller niets veran- 
derd wordt, werkt de computer 
de data af in de volgorde waa- 
rin ze in het programma voor- 
komen. Als er geen data meer 
over zijn, terwijl er door het 
READ-commando nog wel om 
wordt gevraagd, krijgt u de 
ZOUT OF DATA ERROR (de 
computer heeft alle data afge- 
handeld). 

Er bestaat echter een mogelijk- 
heid om de computer weer op- 
nieuw te laten beginnen met de 
eerste data-regel. Dit doet u met 
behulp van het commando 
RESTORE. Dit commando kan 
handig zijn als u de zelfde 
waarden in twee groepen varia- 
belen wilt zetten. U hoeft deze 
waarden dan dus maar in één 
data-regel te zetten. 

In het programma hieronder 
worden de data in de vorm van 
strings gelezen en opgeborgen in 
de string-arrays ma$(x) en 
da$(x). 

U ziet (in regel 220 en 320) dat 
er op een asterisk (°°*°) getest 
wordt. Deze asterisk gebruikt 
het programma om te kijken of 
alle data zijn ingevoerd. 
Analyseert u het onderstaande 
programma eens. Het is voor- 
zien van REM-regels op de 
plaatsen waar dat noodzakelijk 
is. Wellicht kunt u uw voordeel 
doen met de programmeertrucs 
die gebruikt zijn. 











Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en gangen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED HARDWARE AAN 


® Wegens overstap naar Comal, speedio- 
ader 1541 van KCS + speedioader voor 
Cassette van DKW. samen f 125, 
076-220399. B. Troose. 


® Commodore-64 + 1/2 jaar garantie + 
recorder + snellaad en toolkit in cartridge 
+ joystick + stofhoes + vele program- 
ma’s. Prijs f 750, L. Vonk, Oostblok 
24, 2291 XK Wateringen. 


© Kopieer interface. 2 aansluitingen data- 
rec. 1530. Rechtstreeks kopiëren van 
reci naar rec2 tijdens loaden. ideaal voor 
games. M. Vonk, Oostblok 24, 2291 XK 
Wateringen 


®@ Commodore 8032 (nieuw model) + 
8050 disk-drive, samen f 2500, B. van 
Even, Noorderweg 40, Den Bosch, 
073-424655. 


©® FAX 100 DOT-MATRIX PRINTER, 6 
mnd. oud. Weinig of niet gebruikt, 
P.NOTK. A. Kielman, Frieselaan 46, 9501 
BN Stadskanaal. 


© Te koop VIC-20 + 16K + software + 
boeken. Prijs f 500, Printer Alphacom 
42 f 250, Tel. 01819-17921. 


@ Wegens koop andere comp. SEIKOSHA 
GP100VC MATRIX-PRINTER + acc. 3 
maanden oud, bijna niet gebruikt, als 
nieuw. Prijs f 450, Tel. 03447-1697. 


® Te kaap: MPS 802 printer, samen met 
stofhoes en twee reserve linten en vizaw- 
rite 64. T.E.A.B.B. Fortuin, Wingerd 204, 
Waddinxveen. Tel.nr. 01828-13376 (na 
18.00 uur). 


® Te koop: KCS Tape Speed-saver 64 
voor CBM 64. Laad en saved program- 
ma's 10x sneller; met div. extra Basic 
commande’s en functietoetsen. Prijs 

f 55, Tel: 05490-62822. 


® Commodore 1701 Kleurenmonitor: 

f 900,--; Seikosha GP100VG printer: 

f 450, originele Vizawrite wordproces- 
sor: f 175,-, 3/4 jaar gebruikt. M. Rein- 
ders 020-249276. 


® Printer/Piatter 1520 (CBM). Prijs 

f 200,- (3 mnd oud). P. van Diepen, Am- 
bachtstraat 40, 6971 BS Brummen. Tel. 
05756-17002. 


IK BIED HARDWARE EN 
SOFTWARE AAN 


® Datasette, kolff speed-saver combi, co- 
mal handboek, diverse boeken en tijd- 
schriften, infocom adventures, diverse 
disks en cassettes. N.B, Lanting. Tel: 
015-136124. 


® CBM-64 + cass. + joystick + soft- 
ware + boeken o.a, Refer. Guide, beschr. 
Siman's Basie. Prijs f 750,-- Tel. 
045-725052. 


IK BIED SOFTWARE AAN 


® ICS heeft educ. softw. voor uw 
CBM-64 zoals adresbes. maar ook re- 
setsch. en vele andere progr. Stuur een 
briefje (postz. bijsluiten) Javastr. 100, 
6524 MG Nijmegen. 


® Veel programma’s v. C-64, ook spellet- 


jes. Tel. na 18u 070-941525 of schrijf: 
Knijnenburg, Hoogkamerl. 16, 2284 GH 
Rijswijk (Z.H), s.v.p. postzegel bijsluiten. 


® Computer-filantroop kan u gratis aan 
topprogrammatuur (c/d) helpen. Geen 
moeite te veel!! Bel of schrijf: H. Hüttner, 
Puccinihof 635, 5049 GX Tilburg Tel. 
013-560477. 


© Speler voor CBM-64. Lijst met spelen 
aanvragen bij Günther Sterckx, Averlo- 
destraat 6, 2040 Antwerpen. 


® Simon's Basio:disk + handleiding: 

f 70, Superbase64: disk + handleiding: 
f 100, Dallas Q. + Ghostbusters + 
Supericide expr. + karate: f 50, Bart Wil- 


lems, Duinkerkstr. 19, 8480 Veurne, België. 


IK ZOEK HARDWARE 


® Ik zoek C64 met datarecorder. Roger 


Evers, SA.Eugemiusstr. 14, Kerkrade. Tel. 


(045)-412569 (na 16u). 


® Wie heeft er een snelle ROM of 
EPROM voor in de Floppydrive 15412 Tel. 
02230-34905. W. Schaaij, Karveelstraat 
38, 1784 RW Den Helder. 


®@ Te koop, huur of leen gevraagd voor 
GBM-64 Letterwielprinter. Heb hem 
plusminus 2 weken nodig. Tel. na 18 uur 
01620-52041. 


IK ZOEK HARDWARE EN SOFTWARE 
® Ik hen op zoek naar soft- en hardware 
i.v.m. Viditel, Videotext, Bildschermtext, 
Prestel, Teletel enz. Financiële verg. ver- 
zek. M. van Goidsenhoven, PB 1051010 
Brussel 101 België. 


® F 25,- beloning voor degene die mij 
helpt aan aansluitingschema/handieiding 
voor HRT Modem1000 van Prism. Tel. 

010-334843, A.C. Akveld. 


© +Vic-20 hard/software. Omschr. en 
prijsopg. naar: M.J. Dinkelberg, Noord- 
zoom 46, 8316 CJ Marknesse. (tel: 
05273-1806) 


IK ZOEK SOFTWARE 

® Gezocht voor CBM-64: Cassetterecor- 
der liefst onder 50 gulden. Bel: 
02280-13660. Boris Deen, Breedstraat 
90, 1601 KE Enkhuizen. 


® Wie heeft software voor mijn C-16 (op 


câssette). Prijsopgave naar A. Bosma, Es- 


doornstr. 26, 4388 PK Oost-Souburg. Tel. 
01184-64370. 


COMMODORE MARKT 


© Wie kan mij helpen aan een database 
en een dis-assembler voor de CBM-64. 
Eventueel tegen redelijke vergoeding. 1. 
Andriessen, Rolklaver 791, 3069 DH Rot- 
terdam. 


® Wie kan mij helpen aan leuke en/of 
nuttige (zelf gemaakte) software vaor 
Commodore 64? Ron Knevel, Hogenweg 
3, 1098 BT Amsterdam. nb. interesse in 
prog. vaor patiëntenbestand. 


® Ik zoek de save-routine van Novaload 
(dit is een snellader waarbij het beeld 
aanblijft). Tel. na 18u 059-1541, 


® Ext.Basic (versie 110) voor TI99/4a. 


Rond f 100, Tel, (na 4u): 070-2568093. 


©@ Wie heeft voor mijn GBM-64 prg. betr. 
astrologie en/of homeopathie. Mag ook 
Engels/Duits zijn. Aanb. en prijsopg. aan: 
T. Rombout, Zoutmanstr. 19, 5463 EE 
Veghel, tel. 04130-50830 na 1900u. 


® Ik zoek handleiding voor assembler 
(C-64) tegen betaling of ruiling software. 
Heirman-Noppe, Jachtstr. 10, 3740 Bil- 
zen, België. 


© Wie kan mij helpen aan cassetteband- 
jes behorende bij Intermediar P.C.pakket- 


cursus tegen verg. evt. J. Maas, Kaarder- 


hof 43, 5709 GK Helmond. 


© Wie heeft voor mij programma’s op 
Cass. of papier voor CBM 64? Event. te- 
gen redel. vergoeding. Jan Blok, Bergu- 
mermeer 4, 3068 KN Rotterdam tel. 
010-557131 na 18 uur. 


®@ Wie kan mij helpen aan een beschrij- 
ving of handleiding voor G-Pascal event. 
copie. M.J. Schaaf, AR. Holststraat 28, 
3069 WK Rotterdam. Tel. 010-559065. 


® Ik zoek 'n programma om mijn weef- 
patronen uit te werken. Tel, 077-28526. 


© Wie heeft software voor CBM 64, zo- 
wel spel als utility. Gaarne opgave naar 


Ad Klip, Schooipad 7, 3245 AV Sommels- 


dijk. Tel. 01870-3028 na 20.00 uur. 


® Wie kan mij helpen aan programma’s 


voor C16, ook hasicode-versie is welkom. 


Is er misschien ook een geheugenuitbrei- 
ding mogelijk. C. Nijpels, Atoomstraat 13, 
6227 CM Maastricht, tel. 043-617128. 


© Gezocht: handleiding voor practi- 
calc/cass. gebruik. G. Plomp, van Dedem- 
laan 39, 3871 TD Hoevelaken. 
03495-36026. 


® Ik zoek software voor lichtpen, wie 
helpt mij. Schrijf naar L. Reymerink, Rui- 
terstede 92, 3431 XN Nieuwegein. On- 
kosten worden vergoed. Wel voor C64. 


® Wie kan mij helpen aan programma’s 
voor radiozendamateurisme voor de CBM 
64 op cassette, diskette of lising. Reac- 
ties naar postbus 5012, 6201 WD 
Maastricht. 


@® Wie heeft progr. int. huishoudrekening 
(best of basicode fl) aangepast voor C64 
of kan mij daarbij helpen. L.V. Gerwen, 
05423-82797. 


@ Gezocht: C64 programma -GRAPHICS 
BASIC- + handl. A. Heufke Kantelaar, 
Moddermanspad 4, 9545 TX Bourtange, 
05992-6556. 


® Gezocht voor de CBM-64 een pragram- 


ma om een stambaom in te verwerken. 
Op tape s.v.p. Jan de Boer, Ds. Noord- 

mansstraat 27, 9262 NM Suameer. Tel. 
05116-16598. 





® Ik zoek software voor CBM-64 op 
band, 0.4. programma’s voor onderwijs, 
spelletjes, gebruiksprogramma’s. |L. de 
Kort, J.v. Riebeecklaan 109, 2803 WS 
Gouda, Tel, 01820-32499, 


@ Zoek software of documentatie 
voor/over Stack Lightpen + CBM-64. 
F.J.G. Wijninga, De Haardstede 31, 7335 
LP Apeldoorn. Tel. 055-416499. 


® Data-base voor. platenbestand. (zeer 
groot) op cass. en disk, sort. op titel + 
uitvoerders. Prijsopg. naar M. Wolles, 
Draaiboomstraat 49, B-2220 Wommelgem 
(België). 


® Zoek voor de CBM-64 op cassette The 
Hobbit en andere grafische adventures. 
Koos Verolme, Azaleastraat 51, 3245 CB 
Sommelsdijk. Tel. 01870-3266. 


© Wie heeft voor mij: Simons Basic op 
cassette (tegen een gereduceerde prijs). 
G. Stultiens, Vossendijk 99, 6534 TH Nij- 
megen. Tel. 561016. 


® Gevraagd: Database-programma voor 
CBM-64 tegen kleine vergoeding. Bellen 
na 19.00 uur Tel. 01185-1418. E. Hil- 
lebrand. 


© Wie heeft voor de CBM-64 een prog. 
dat het mogelijk maakt Cobol te oefenen. 
Evt. tegen betaling J. Roet, Oosteinde 47, 
1636 XS Schermerhorn. 


IK WIL RUILEN 


©@ CBM64 programma’s. Stuur lijst naar 
W. Frederiks, Berkhaas 47, 6941 AJ 
Herven. 


@ Commodore C-64 prog. lijst per post te 
verkrijgen. 70 cent als postzegel bijvoe- 
gen. J.P. van Dijk, Emmastraat 18a, 
9671 AP Winschoten. Lijsten bijvoegen s.v.p. 


® CBM 64: ongeveer 500 prg.'s te ruil. 
Bel of schrijf naar: Tony de Bok, Lisdodde- 
laan 13, 4143 VG Leerdam, tel. 
03451-13956. 


® Wie wil Simonsbasic cass. programma 
ruilen voor Pascal programma cass. Ludo- 
nic Bovee, 01686-24937. 


© Wie wil (professionele) software ruilen 
voor de Commodore 64. Schrijf: F. de 
Jong, Ree 13, 1273 GP Huizen. 


® Te ruil: spelletjes voor de C-16. Onde- 
randere: Blits, Top 40, Forbidden crypt, 
sprites en nog zo’n 30 andere. Bel 
0411-1661 (Floris). 


® Wie software wil ruilen voor CBM-64 
stuur uw lijst naar: J. Kuijpers, v. Cit- 
tersstr. Ja, 3022 LE Rotterdam. Ik ben in 
bezit van plusminus 300 progr. voor cass. 
of disk. 


® Beginner (14 jr.) zoekt software- 
spelletjes. Heeft plusminus 100 spelen om 
te ruilen. Wie wil aanvullen of ruilen? Stuur 
s.v.p. softw.lijst: Ludo de la Haye, Hoeker 
43, 1625 CC Hoorn. 


® CBM-64 software (ook op disk). Ik heb 
zowel games als zakelijke software. Stuur 
lijst naar: Postbus 63, 9530 AB Borger of 
bel: 05998-12834 (na 17.00 uur). 


® Ik wil spelletjes ruilen voor CBM-64. 
Heb Zaxxon Say It Beach Head. Bel 
02159-19006 en vraag naar Marc. 


® Wie wil software met mij ruilen voor de 
TRS-80 model 1. Bel naar Richard den Her- 
tog, tel. 01829-2044. 
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COMMODORE MARKT 


IK ZOEK SOFTWARE EN WIL RUILEN 


@ Te koop of te ruil gevraagd voor C-64, 
het Vip-Terminal prg. van Softlaw. Tel. 
0020-325845. 


@ Gevraagd: software voor GBM-64 
(cass/diskette). Stuur lijst naar: |, Tille- 
kens, Koekamp 71, 2623 XP Delft. leder- 
een krijgt antwoord. 


® Gevraagd: software en uitbreidingen 
voor VIC'20 CBM 64 zonder voeding en 
verdere hardware, toetsenbord mag defect 
zijn. Te ruil: 45 spelletjes vaor VIC-20 


(standaard). Reacties/aanbiedingen: H. den 
Dekker, Binnenhof 12, 1354 KB Almere, 
tel. 03240-19303. 


OVERIGEN 


® Wie kan mij helpen aan de gebruiks- 
aanwijzing/informatie betreffende ARCHON 
Il. Zoek printer voor CBM 64 tegen rede- 
lijke prijs. J. van Gessel, Cronjéstraat 34, 
1001 DM Doetinchem. 


® Wie heeft er voor mij een handleiding 
van Simon's Basie. Schrijf; August Vlot, 


Rubenssingel 113, 2902 GW Capelle a/d 
Ijssel of bel: 010-504881. 


® Voor programma zoek ik (Belgische) 
lottoreeksen, uitgekomen tussen begin en 
31 december 1983. Paul Helsen, 
QWMSL.54SMD. BCA. BPS41. 4090BSD. 
in België. 


® Zoek robot-arm voor 64+ prg. tegen 
red. prijs. Bel Garl-John na 18.00, tel. 
04160-40094. 


@ CBM 1541 diskdrive max. 1 jr. oud. 
Tevens contact gezocht met 64 gebrui- 


kers (zend amat.) omg. Capelle a/d ijssel. 


Tel, 9010-517415. 


® Zoek beschrijving van Easyscript, Raid 
Over Moscou, Sequenzer, Koalapainteren 
Visawrite 64. Heb zelf veel software te 
ruil. M. Kaelen, Vierde romptert 43, 5233 
GA Den Bosch. 


U kunt uw advertentieopdrach- 
ten sturen naar: 

CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11, 

1059 AT Amsterdam. 


Maandelijkse rubriek met de belangrijkste informatie 
uit de Commodore gebruikersclubs 


Stichting Computer Hobbyisten Nederland 
(SCN) HOT NEWS 

Secretariaat: A. Brink, tel. 03450-16051 
(ma-, di- en wo- dag tussen 13.00 en 22.00 
uur) 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Zwolle: P.P.L. van Bijsterveld, tel. 
038-548459. 

Afdeling Midden Nederland: H. Scheffer, 
tel. 03453-13975. 

Afdeling Deventer: tel. 
50/59. 

Algemene bijeenkomsten: tweede zater- 
dag van de maand in De Meervaart, Osdor- 
perplein 67 te Amsterdam-Osdorp. 


05700-50758/ 


de Gebruikers van 
Nederland 


Vereniging voor 
Commodore-computers _ in 
(VCGN) 

Secretariaat: Ine van Teijlingen, De Brink 
928, 2553 HT Den Haag, tel. 07/0-971851 
(van 20.00-22.00 uur, m.u.v. maandag en 
woensdag) b.g.g. 070-687924 of 
070-946156. 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Zeeland: R. van Dijk, tel. 
01180-25746 

Afdeling West-Brabant: P. Nelen, tel. 
01640-51639 


Afdeling Midden-Brabant: W. Wils, tel. 
01620-55634 

Afdeling Oost-Brabant: C. de Winter, tel. 
04120-42054 

Afdeling Zuid-Limburg: J. van Mastrigt, tel. 
043-476935 

Afdeling Zuid Holland-Zuid: D. van Riems- 
dijk, tel. 010-501023 


Algemene bijeenkomsten: laatste zaterdag 
van de maand in Rijswijk (Lodewijk Make- 
blijde College, H.R. Holstlaan 2, 2283 HB). 
Afdelingsbijeenkomsten: 

Afdeling Zeeland: nog niet bekend. 
Afdeling West-Brabant: eerste zaterdag 
van de maand. 

Afdeling Midden-Brabant: derde zaterdag 
van de maand. 

Afdeling Oost-Brabant: derde zaterdag van 
de maand. 

Afdeling Zuid-Limburg: eerste zaterdag 
van de maand. 

Afdeling Zuid Holland-Zuid: eerste zater- 
dag van de maand. 

Afdeling Noord Holland-Zuid: eerste zater- 
dag van de maand. 


PET-Benelux Exchange 

Secretariaat: Copytronics, Postbus 700, 
7400 AS Deventer, tel. 05759-2211. Voor 
inlichtingen over de regionale afdelingen 


kunt u zich wenden tot: 

Afdeling Zeist: tel. 05759-2211 

Afdeling Nijmegen: tel. 05759-2211 
Afdeling Haaksbergen: 053-766444 
Service Reparatie Centrum voor PET- 
leden: tel. 053-/66444. 

Algemene bijeenkomsten: 

Afdeling Zeist: eerste zaterdag van de 
maand. 

Afdeling Nijmegen: tweede zaterdag van 
de maand. 

Afdeling Haaksbergen: derde zaterdag van 
de maand. 


HCC-Commodore-COMPET _gebruikers- 
groep 

Secretariaat: J.J. van Douwen, Couwenho- 
ven 1203, 3703 VB Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 8/6, 21/9 en 30/11. 
Waddinxveen: zaterdag 27/4, 6/7, 26/10 en 
21/12. 


V.Z.W. Commodore Computer Club België 
Secretariaat: E. de Decker, Bindstraat 19, 
B-2600 Berchem Antwerpen. 

Voor inlichtingen over de regionale afdelin- 
gen kunt u zich wenden tot: 

Afdeling Antwerpen: E. de Decker 
Bindstraat 19, B-2600 Berchen/Antwerpen. 
Afdeling Limburg: Roger Mebis Kamerlo 
15, B-3600 Genk. 

Afdeling West-Vlaanderen: Frankie Meule- 
man, Westhille 37, B-8210 Zedelgem. 
Algemene bijeenkomsten: eerste en derde 
vrijdag van de maand (vanaf 20.00 uur). 
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Vragen over gepubliceerde programma’s 
kunnen alleen schriftelijk worden 
beantwoord. 


is een uitgave van 

VNU Business Publications BV 
Rijnsburgstraat 11, 1059 AT 
Amsterdam. 


PROJECT-REDACTEUR 
Mat Heffels 


ADVERTENTIE-EXPLOITATIE 


Johan IJsebrands 
Frank Tanis 
Ton Cobelens 


(c) Copyright 1985 by 
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tel. 03 — 237 0120 


Commodore Dossier komt tot stand in 
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van 
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uitdrukkelijke schriftelijke 
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Pim de Wit 
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Rob van den Berg 





CGOMMODORE DOSSIER 14 





GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 



















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 G, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo'n klein maatje, dat blijkt ES 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand brother 
adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES oaeen 


CDA JUNI 
BO N: a Ik wil meer informatie over de HR-5. 


Naam: 





























Adres: 





Postcode: Plaats: 
Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. | 








Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 


Brother Industries Ltd. Nagoya, Japan. 
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TECHNIEK 




















Weka & Computer, 






HET 
ZWAARDERE 
WERK 
op COMMODORE 64 








STEEDS UP TO DATE 


Het is als bij de krant: vandaag nog aktueel, morgen 
”oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 
technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 


NOOIT VEROUDERT. 














Weka & Computer, 





Weka Uitgeverij B.V. 
Postbus 61196 - 1005HD AMSTERDAM - 020-8671 31 


KEUZE 1: Basic 


Van basic tot machinetaal op Commodore 64 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

© Basic ® Hulptalen (Logo, Pascal, Pilot) 


© Geluid® Grafische mogelijkheden 

® Accessoires @ Machinetaal 

D.m.v. duidelijke programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: door logische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tijdschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby en beroep 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen en afstandsbediening, enz. 


Bouwschema’s 

Bouwschema’s gedrukt op plasticfolies geven u 
de mogelijkheid computers met een vaste schijf, 
verwerkingsuitbreidingen, interfaces, 

in- en output-apparatuur zelf te bouwen. 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig vlucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo’n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijstjes die ingevuld kunnen worden, 





1602 


Naam: 


KEUZE 2: Microcomputertechniek 
Microcomputer techniek — uw hobby met toekomst 


KEUZE 3: Spellen op de C64 





In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tot machinetaal op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2200, 

prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 









Software-paketten 

Opdat u de gebruiksmogelijkheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 





zullen we steeds de populairste spellen en 
simulaties opnemen. 


Bestel nu reeds dat unieke naslagwerk, dan 
zenden wij het u direkt na verschijnen toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 





zegging abonneer op uw aktualiserings-service. 


JA, Na ontvangst betaal ik f 99,- plus porto 





Adres: 





PC/Plaats: 








L] Keuze 1 


Van Basic tot 
machinetaal op C64 








Handtekening: 














L] Keuze 2 Keuze 3 
Aktuele Het zwaardere 
miecrocomputertechniek werk op C64 


Bon opzenden aan: 
Weka Uitgeverij BV, Antwoordnummer 15412, 1000 PZ AMSTERDAM 






















































































































































































De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor 


De nieuwe Commodore PCis een zeer krachtige 
16 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma's die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en Kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


EENES 


PC 


De IBM compatible 
voor een ongeloof 
lage prijs. 

f. 5.695,- 


EXCL. B.T.W 





De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 16 bits processor @ 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
® Dubbel diskette station, 2 x 320/360 Kbe® High- 
resolution monochrome monitor, groen ® ASCII 
toetsenbord ® Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B.T.W. (diskette station 
| x 360 Kb en | x 10 Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde 
Commodore Systeemdealers. 
Of vraag documentatie met de 
coupon. 





Commodore 
Daar wordt een mens wijzer van, 








| Ja, stuur mij de complete | 
| CO U PO N documentatie over de nieuwe 





Commodore PC 
Naam bedrijf 


COLP 
Adres | 


Postcode/Plaats 


Functie 
Handtekening 


1 
Zend de coupon in een gefrankeerde envelop aan: 5 | 
| Commodore BM, Postbus 8192, 1005 AD Amsterdam. | 


| 

| 

| Telefoon. 

| | 
| 

; Toepassing 


“Alkmaar Accom BM, Verdronkenoord 28, tel. 


072-122412. Alphen a/d Rijn Hermes HCS. BV, 
Koperweg 35, tol. 0720 35079. Amersfoort Acto 
BV, Amsterdamseweg 53, tel. 033-621/24, Am- 
sterdam A.K.G. Micro Systemen, Dam 2/, tel. 020- 
272266. Bocaraton BM, Schepenbergweg 16, 
tel. 020-97075|. Heisterkamp & Partners BM, 
Stadhouderskade 2, tel. 020-1163429. Jon Kee 
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